home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh12a.d64 / move-demo 2 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  417b  |  25 lines
  1. 100 REM *****************
  2. 110 REM *** MOVE-DEMO ***
  3. 120 REM *SORTIERTE LISTE*
  4. 130 REM *****************
  5. 140 :
  6. 150 AM=100
  7. 155 DIM A$(AM)
  8. 160 PRINT CHR$(147)
  9. 167 AD=AD+1
  10. 170 INPUT"DATENSATZ";DA$
  11. 180 S=0:E=AD:GOSUB 510:REM BI-SUCHE
  12. 190 SYS 49152,A$(E),A$(E+1),(AM-E)*3
  13. 200 A$(E)=DA$
  14. 215 PRINT:PRINT
  15. 217 FOR I=1 TO AD:PRINT A$(I):NEXT
  16. 220 GOTO 167
  17. 230 :
  18. 240 :
  19. 500 REM *** BINAERE SUCHE ***
  20. 510 M=INT((S+E)/2)
  21. 520 IF DA$>A$(M) THEN S=M:GOTO 540
  22. 530 E=M
  23. 540 IF E-S>1 THEN GOSUB 510
  24. 550 RETURN
  25.